home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 133
/
133.d81
/
snapshot loader
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
282b
|
7 lines
60000 a$="your program":fori=8to10:close2:open2,i,2:close2:ifstthen60020
60010 close15:open15,i,15,"r"+a$+"="+a$:input#15,er:close15:ifer=63then60030
60020 next:print"[147]":poke186,8:end
60030 q$=chr$(34):poke646,peek(53281):print"[147]"
60040 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:clr:l[207]"q$a$q$","i
60050 print"sys65418:run:":poke631,13:poke632,13:poke198,2:end